home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / enviro.zip / GETENV.PAS < prev   
Pascal/Delphi Source File  |  1993-01-04  |  347b  |  16 lines
  1. program getenv;
  2. Uses Environ;
  3. var
  4.    T : Integer;
  5.  
  6. Begin
  7.      WriteLn('Count of Environment Variables = ',EnvCount);
  8.      WriteLn('File Specification = ',RunFile);
  9.      Writeln;
  10.      Writeln('Following are all your environment variables.');
  11.      For T := 1 to EnvCount do
  12.      begin
  13.           Writeln(EnvironStr(T))
  14.      end;
  15. end.
  16.